home *** CD-ROM | disk | FTP | other *** search
/ Publication 5 / Publication_05_19xx_High-Tech_de_Side_A.d64 / dump-ersatz! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  506b  |  16 lines
  1. 10 rem ********************************
  2. 11 rem *                              *
  3. 12 rem *   variablen-dump anzeigen!   *
  4. 13 rem *                              *
  5. 14 rem *                              *
  6. 15 rem ********************************
  7. 16 rem
  8. 100 rem float
  9. 101 forxv=peek(45)+256*peek(46)topeek(47)-14+256*peek(48)step7:iv$="[164]"
  10. 102 rem string
  11. 103 bv$=chr$(peek(xv+1)):ifasc(bv$)>=128thenbv$=chr$(peek(xv+1)-128):iv$="$"
  12. 104 rem integer
  13. 105 av$=chr$(peek(xv)):ifasc(av$)>=128thenav$=chr$(peek(xv))-128:iv$="%"
  14. 106 rem ausgabe
  15. 107 print""av$;bv$;iv$:nextxv:print"[146]das war's..."
  16.